home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / fontedit.arc / WALKER.BAS < prev   
Encoding:
BASIC Source File  |  1984-07-04  |  640 b   |  37 lines
  1. 100 'walking man
  2. 110 '
  3. 115 KEY OFF
  4. 120 GOTO 250
  5. 130 '
  6. 140 'subroutine frame
  7. 150 G = 128 + 6 * F
  8. 160 LOCATE 10,20
  9. 170 PRINT CHR$(G + 0);CHR$(G + 1)
  10. 180 LOCATE 11,20
  11. 190 PRINT CHR$(G + 2);CHR$(G + 3)
  12. 200 LOCATE 12,20
  13. 210 PRINT CHR$(G + 4);CHR$(G + 5)
  14. 220 FOR PAUSE = 1 TO 10:NEXT
  15. 230 RETURN
  16. 240 '
  17. 250 CLEAR,&H4000
  18. 260 DEF SEG = 0
  19. 270 POKE &H7C,0
  20. 280 POKE &H7D,&H40
  21. 290 POKE &H7E,PEEK(&H510)
  22. 300 POKE &H7F,PEEK(&H511)
  23. 310 DEF SEG
  24. 320 BLOAD "walkchar",&H4000
  25. 330 '
  26. 340 SCREEN 1:CLS
  27. 350 '
  28. 360 ' main loop
  29. 370 FOR F = 0 TO 4
  30. 380 GOSUB 130   '  Frame
  31. 390 NEXT F
  32. 400 GOTO 370
  33. 4000
  34. 330 '
  35. 340 SCREEN 1:CLS
  36. 350 '
  37. 3